- Objetos Espaciais
- Banco de Dados Espaciais
- Pacotes R
- Mapview
- Leaflet
22 de maio de 2018
## bairro regional m2_ap m2_casa ## 0 agua verde REGIONAL PORTÃO 6301.942 4607.662 ## 1 jardim social REGIONAL MATRIZ 5630.685 4262.059 ## 2 xaxim REGIONAL BOQUEIRÃO 3917.897 3280.043 ## 3 jardim das americas REGIONAL CAJURU 4894.186 3488.253 ## 4 guaira REGIONAL PORTÃO 4562.365 3240.030
## [1] "SpatialPolygonsDataFrame" ## attr(,"package") ## [1] "sp"
require(mapview) mapview(cwb_imovel)
mapa_ap <- mapview(cwb_imovel,
map.types = c("OpenStreetMap.DE"), # Base Map
zcol = "m2_ap", # Variável
at = as.integer(breaks_equal$brks), # Fatiamento
col.regions = RColorBrewer::brewer.pal(n = 5, name = "Oranges"), # Cores
legend = TRUE,
layer.name = "Preço do M2", # Nome da Legenda
alpha.regions = 1, # Opacidade dos Polígonos
label = cwb_imovel$nome) # Mouse Hover
sync(list(mapa_ap, mapa_casa), sync = list(c(1,2)))